home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.03 Mar 87 / Printer LSP sources / SetUpMenusStuff < prev    next >
Encoding:
Text File  |  1987-02-13  |  829 b   |  41 lines  |  [TEXT/PJMM]
  1. UNIT SetupMenus;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         MacPrint, MyGlobals, Windows;
  7.  
  8.     PROCEDURE SetUpMenus;
  9.     PROCEDURE SetUpWindow;
  10.  
  11. IMPLEMENTATION
  12.  
  13. { These routines used only once then segment dumped }
  14.  
  15.     PROCEDURE SetUpMenus;
  16.         VAR
  17.             counter : INTEGER;
  18.     BEGIN
  19.         FOR counter := 1 TO lastMenu DO
  20.             myMenus[counter] := GetMenu(counter);
  21.         AddResMenu(myMenus[1], 'DRVR'); {desk accessories }
  22.         FOR counter := 1 TO lastMenu DO
  23.             InsertMenu(myMenus[counter], 0);
  24.         DrawMenuBar;
  25.     END; {SetUpMenus}
  26.  
  27.     PROCEDURE SetUpWindow;
  28.         VAR
  29.             r : Rect;
  30.     BEGIN
  31.         dragRect := screenbits.bounds;
  32.         dragRect.top := dragRect.top + 20; {leave room for menu bar}
  33.         InsetRect(dragRect, 4, 4); {leave some of dragged rectangle on screen}
  34.         doneFlag := FALSE;
  35.         printFlag := FALSE;
  36.  
  37.         currWMode := nullMode;
  38.         OpenAWindow; {WindowStuff routine}
  39.     END; {SetUpWindow}
  40.  
  41. END.